home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_A.d64 / basic-tips .txt < prev    next >
Text File  |  2023-02-26  |  1KB  |  74 lines
  1. basic-tips
  2. ein paar von robin hood...
  3.  5 
  4. hy folx ! damit der liebe zeitgeist
  5. ein bisschen zeit spart{CBM--}hier auch noch
  6. 'nen paar basic-tips von mir {SHIFT-+}
  7.  
  8.  input l@nger als ein zeile
  9. {CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
  10.  
  11. nach einem alten rom-fehler kann eine
  12. input-zeile nicht l@nger als eine
  13. zeile (40 zeichen) sein.hier nun die
  14. l[sung der problems {SHIFT-+}
  15.  
  16. {CBM-Q} poke19{CBM--}64{SHIFT-+}inputa${SHIFT-+}poke19{CBM--}0
  17.  
  18. diskettennamen auslesen
  19. {CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
  20.  
  21. 10 open1{CBM--}8{CBM--}15{CBM--}"i"
  22. 20 open2{CBM--}8{CBM--}2{CBM--}"#"
  23. 30 ?#1{CBM--}"m-r"chr$(144)chr$(7)chr$(16)
  24. 40 input#1{CBM--}a$
  25. 50 close2{SHIFT-+}close1
  26.  
  27. {CBM-P}{CBM-A} das fragezeichen in zeile 30 ist
  28. {CBM-E}{CBM-R} die abk]rzung des print-befehls.
  29.  
  30.  
  31.  
  32. freie blocks lesen
  33. {CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
  34.  
  35. 10 open1{CBM--}8{CBM--}15{CBM--}"i"
  36. 20 ?#1{CBM--}"m-r"chr$(250)chr$(2)chr$(3)
  37. 30 get#1{CBM--}a${CBM--}b${CBM--}b$
  38. 40 a=asc(a$+chr$(0)+256*asc(b$+chr$(0))
  39. 50 close1:print a
  40.  
  41. {CBM-P}{CBM-A} auch hier wurde mit dem frage -
  42. {CBM-E}{CBM-R} zeichen als print-abk]rzung ge-
  43.    arbeitet.
  44.  
  45.  
  46. speichern/laden eines bereiches
  47. {CBM-X}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-I}{CBM-K}{CBM-N}
  48.  
  49. sys57812 "NAME" {CBM--}8
  50. poke174{CBM--} low-ende
  51. poke175{CBM--} high-ende
  52. poke193{CBM--} low-start
  53. poke194{CBM--} high-start
  54. sys62957
  55.  
  56. sys57812 "NAME" {CBM--}8
  57. poke780{CBM--}0{SHIFT-+}poke781{CBM--}low-start
  58. poke782{CBM--}high-start
  59. sys57717
  60. das war's soweit....hier noch ein
  61. kleiner tip zur berechnung  von low-
  62. und high-byte{CBM--}der euch f]r das laden
  63. oder speichern eines bereiches n]tzen
  64. kann {SHIFT-+}
  65.  
  66. HIGH = int(adresse/256)
  67.  
  68. LOW  = adresse-high*256
  69.  
  70.  
  71.      that's it{CBM--}
  72.                 ROBIN HOOD
  73.  
  74.